home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib11.dsk
/
DISK MAP.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
30 lines
1 REM **************************
2 REM * << DISK MAPPER >> *
3 REM * BY JAMES O. CHURCH *
4 REM * COPYRIGHT (C) 1982 *
5 REM * BY MICRO-SPARC INC *
6 REM * LINCOLN, MA. 01773 *
7 REM * ALL RIGHTS RESERVED *
8 REM **************************
70 HOME
80 VTAB 10: PRINT "PLEASE WAIT ONE MOMENT FOR DISK MAP"
90 PRINT CHR$(4);"VERIFY HELLO"
100 FOR I = 0 TO 299: READ A: POKE 16384 +I,A: NEXT
110 CALL 16384
120 A = PEEK(9) *256 + PEEK(8)
130 PRINT : PRINT "SECTORS FREE ";560 -A;" SECTORS USED ";A
140 PRINT "LIGHT COLOR AREA IS FREE";
150 GET A$
160 TEXT : HOME
1000 DATA 169,243,133,6,169,179,133,7,162,8,160,0,140,214,64,140,215,64,177,6,10,176,3,238,214
1005 DATA 64,202,208,247,162,8,200,177,6,10,176,3,238,214,64,202,208,247,174,215,64,173,214,64,157
1010 DATA 216,64,238,215,64,173,215,64,201,35,240,23,24,165,6,105,4,133,6,165,7,105,0,133,7
1015 DATA 162,8,160,0,140,214,64,76,18,64,173,80,192,173,86,192,173,83,192,32,54,248,169,2,141
1020 DATA 213,64,169,0,141,212,64,169,2,32,100,248,173,212,64,172,213,64,32,0,248,24,173,212,64
1025 DATA 105,1,141,212,64,201,32,144,234,169,0,141,212,64,24,173,213,64,105,1,141,213,64,201,37
1030 DATA 144,216,32,251,64,169,20,133,37,32,34,252,32,66,252,169,2,133,36,169,176,32,237,253,169
1035 DATA 19,133,36,169,196,32,237,253,32,142,253,169,0,133,8,133,9,162,34,189,216,64,24,101,8
1040 DATA 133,8,165,9,105,0,133,9,202,16,239,96,32,37,16,35,16,16,16,16,16,16,10,0,0
1045 DATA 0,7,16,2,16,16,16,16,16,2,0,0,0,0,0,2,0,12,8,3,3,11,0,16,16
1050 DATA 16,169,15,32,100,248,162,0,160,2,140,213,64,189,216,64,201,16,240,20,10,141,212,64,172
1055 DATA 213,64,32,0,248,238,212,64,173,212,64,201,32,144,243,238,213,64,232,224,35,144,221,96,0